From: Chong Yidong Date: Sun, 8 Nov 2009 23:01:45 +0000 (+0000) Subject: * bookmark.el (bookmark-completing-read): Sort bookmark names if X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9581 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ac8c20421fca1b762a8c03d9d4faab182c6734bf;p=emacs.git * bookmark.el (bookmark-completing-read): Sort bookmark names if bookmark-sort-flag is non-nil (Bug#4653). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 301bcedc0a1..42c2e613716 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-08 Markus Rost + + * bookmark.el (bookmark-completing-read): Sort bookmark names if + bookmark-sort-flag is non-nil (Bug#4653). + 2009-11-08 Chong Yidong * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable diff --git a/lisp/bookmark.el b/lisp/bookmark.el index f1a4409cc85..a3c315acbc2 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -459,7 +459,11 @@ Optional second arg DEFAULT is a string to return if the user enters the empty string." (bookmark-maybe-load-default-file) ; paranoia (if (listp last-nonmenu-event) - (bookmark-menu-popup-paned-menu t prompt (bookmark-all-names)) + (bookmark-menu-popup-paned-menu t prompt + (if bookmark-sort-flag + (sort (bookmark-all-names) + 'string-lessp) + (bookmark-all-names))) (let* ((completion-ignore-case bookmark-completion-ignore-case) (default default) (prompt (concat prompt (if default